home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_A.d64 / fakultaet v3.0_b (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  550b  |  13 lines
  1. 100 rem *******************************
  2. 110 rem * fakultaet v3.0 - bas.-vers. *
  3. 120 rem *-----------------------------*
  4. 130 rem * (w) by frank schneider '92  *
  5. 140 rem *******************************
  6. 150 rem
  7. 160 k=10^5:input" welche fakultaet ";f%:iff%<1orf%>32664thenend
  8. 170 f=(.5*log(2*(NULL))+(f%+.5)*log(f%)-f%+1/(12*f%))/log(10):e=int(f):m=10^(f-e)
  9. 180 print""f%"! ="int(m*k)/k"e"e:k1=46712:k2=0:iff%>=10000thenk1=41277:k2=471
  10. 190 l=(log(200*(NULL))+(f%+1)*log(f%)-1.5*f%)*f%/log(100)
  11. 200 t=l/k1-k2:h=t/3600:m=(h-int(h))*60:s=(m-int(m))*60
  12. 210 print" rechenzeit fuer alle ziffern :":printint(h)":"int(m)"'"int(s)
  13.